***************************************************************
* MOULINETTE POUR LE PASSAGE DE DETAILPROFILUTIL A PROFILUTIL *
***************************************************************
EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "","DETAILPROFILUTIL" TO F.DETAILPROFILUTIL ELSE STOP
OPEN "","PROFILGROUPE" TO F.PROFILGROUPE ELSE STOP

   EXECUTE 'SSELECT DETAILPROFILUTIL PAR 0'

   W_End="FAUX"
   
   LOOP
      READNEXT W_Cle ELSE W_End = "VRAI"
	READ ENR_DETAILPROFILUTIL FROM F.DETAILPROFILUTIL ,W_Cle ELSE ENR_DETAILPROFILUTIL = ""
   WHILE W_End = "FAUX" DO
	ENR_PROFILGROUPE = ""
	CleProfil = ""
	
	I = 0	

	LOOP
		I = I + 1
	WHILE ENR_DETAILPROFILUTIL<3,I> <> "" DO
		CleProfil = W_Cle:ENR_DETAILPROFILUTIL<3,I>
		ENR_PROFILGROUPE<1> = ENR_DETAILPROFILUTIL<2,I>
		ENR_PROFILGROUPE<2> = ENR_DETAILPROFILUTIL<4,I>
		J = 0
		LOOP
			J = J + 1
		WHILE ENR_DETAILPROFILUTIL<5,I,J> <> "" DO
			ENR_PROFILGROUPE<3,J> = ENR_DETAILPROFILUTIL<5,I,J>
		REPEAT
*PRINT I
*PRINT W_Cle
*PRINT CleProfil
*PRINT ENR_PROFILGROUPE<1>
*PRINT ENR_PROFILGROUPE<2>
*PRINT ENR_PROFILGROUPE<3,J>
*DEBUG
		IF CleProfil <> "" THEN
      		WRITE ENR_PROFILGROUPE ON F.PROFILGROUPE,CleProfil
		END
		ENR_PROFILGROUPE = ""
		CleProfil = ""
	REPEAT
   REPEAT

STOP
